home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #3 / Amiga Plus CD - 1996 - No. 3.iso / demo-versionen / databaseprofessional_v3.0 / profaktdemo / fakturierung / kdnrzeigen.rexx < prev    next >
OS/2 REXX Batch file  |  1995-09-24  |  1KB  |  83 lines
  1. /* Fakturierung Kundennummer zeigen */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. outdev = 1 /* 1 für CON:    2 für MultiView */
  6.  
  7. IF outdev = 1 THEN
  8.   device = "CON:0/14/640/200/Aufträge/WAIT/CLOSE/SCREENDataBase"
  9. ELSE
  10.   device = "T:Auftrag"
  11.  
  12. ADDRESS DataBase
  13.  
  14. CurrentBase
  15. oldbase = RC
  16.  
  17. DBtoFront
  18.  
  19. RequestText "Name des Kunden eingeben"
  20. kunde = RESULT
  21. IF RC = 5 THEN EXIT
  22.  
  23. Display OFF
  24.  
  25. FindBase 'Kunden.db'
  26. newbase = RC
  27. IF newbase > 0 THEN
  28.   Base newbase
  29. ELSE
  30.   DO
  31.   Base 1
  32.   OPEN "ProFaktDEMO/Kunden/Kunden.db"
  33. END
  34.  
  35. SETSEARCH CASE FIELD COMPLETE SIMILAR
  36. SEARCHFIELD $F3
  37.  
  38. SEARCH kunde
  39.  
  40. IF RC = 5 THEN DO
  41.   Base oldbase
  42.   Display On
  43.   Request "_Ok" "Suchbegriff nicht gefunden"
  44.   EXIT
  45. END
  46.  
  47. weiter = 0
  48. count = 0
  49.  
  50. DO WHILE weiter = 0
  51.   count = count + 1
  52.   GetData $F3
  53.   nname.count = Left(RESULT,15)
  54.   GetData $F4
  55.   vname.count = Left(RESULT,15)
  56.   GetData $F9
  57.   ort.count = Left(RESULT,15)
  58.   GetData $F1
  59.   kdnr.count = Left(RESULT,10)
  60.   SearchNext kunde
  61.   weiter = RC
  62. END
  63. Base oldbase
  64. Display On
  65.  
  66. idx = 1
  67. ok = Open(out,device,W)
  68. ok = WriteLn(out,"Name            | Vorname         | Ort             | Kd.Nr")
  69. ok = WriteLn(out,"----------------------------------------------------------------")
  70. DO WHILE idx <= count
  71.   ok = WriteLn(out,nname.idx || "   " || vname.idx || "   " || ort.idx || "   " || kdnr.idx )
  72.   idx = idx + 1
  73. END
  74. ok = Close(out)
  75.  
  76. IF outdev = 2 THEN DO
  77.   ADDRESS COMMAND
  78.   'SYS:Utilities/Multiview PUBSCREEN DataBase ' || device
  79. END
  80.  
  81. ADDRESS
  82.  
  83.